home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / XCO212P.ZIP / ISODEF / generalu.def < prev    next >
Encoding:
Modula Definition  |  1994-12-22  |  857 b   |  24 lines
  1. DEFINITION MODULE GeneralUserExceptions;
  2.  
  3. (* Provides facilities for general user-defined exceptions *)
  4.  
  5. TYPE
  6.   GeneralExceptions = (problem, disaster);
  7.  
  8. PROCEDURE RaiseGeneralException (exception: GeneralExceptions; text: ARRAY OF CHAR);
  9.   (* Raises exception using text as the associated message *)
  10.   
  11. PROCEDURE IsGeneralException (): BOOLEAN;
  12.   (* Returns TRUE if the current coroutine is in the exceptional execution state
  13.      because of the raising of an exception from GeneralExceptions;
  14.      otherwise returns FALSE.
  15.   *)
  16.  
  17. PROCEDURE GeneralException(): GeneralExceptions;
  18.   (* If the current coroutine is in the exceptional execution state because of the
  19.      raising of an exception from GeneralExceptions, returns the corresponding
  20.      enumeration value, and otherwise raises an exception.
  21.   *)
  22.  
  23. END GeneralUserExceptions.
  24.